#!/usr/bin/perl -w

#===============================================================
# rmheadtail
# File ID: 78b00000-5d43-11df-b7a6-90e6ba3022ac
# Removes first and last line from stdin or specified files
#
# Character set: UTF-8
# License: GNU General Public License version 2 or later
# ©opyleft 2003 Øyvind A. Holm <sunny@sunbase.org>
#===============================================================

use strict;

$| = 1;

my @Data = <>;

if (scalar(@Data) > 2) {
	splice(@Data, 0, 1);
	splice(@Data, -1);
	for (@Data) {
		print($_);
	}
}

__END__

=pod

=head1 LICENCE

This program is free software; you can redistribute it and/or modify it 
under the terms of the GNU General Public License as published by the 
Free Software Foundation; either version 2 of the License, or (at your 
option) any later version.

This program is distributed in the hope that it will be useful, but 
WITHOUT ANY WARRANTY; without even the implied warranty of 
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along 
with this program; if not, write to the Free Software Foundation, Inc., 
59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=cut

# vim: set fileencoding=UTF-8 filetype=perl foldmethod=marker foldlevel=0 :
# End of file rmheadtail
